unit frmwiznewproj;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ImgList, Vcl.StdCtrls, Vcl.ComCtrls,
  JvExStdCtrls, JvButton, JvCtrls, JvFooter, Vcl.ExtCtrls, JvExExtCtrls,
  JvExtComponent;

type
  TfrmWNuevoProyecto = class(TForm)
    foot1: TJvFooter;
    btn2: TJvFooterBtn;
    lv1: TListView;
    lbl1: TLabel;
    il1: TImageList;
    procedure lv1Click(Sender: TObject);
    procedure lv1DblClick(Sender: TObject);
  private
    FProyectoSeleccionado: Integer;
    procedure SetProyectoSeleccionado(const Value: Integer);
    { Private declarations }
  public
    { Public declarations }
    property ProyectoSeleccionado: Integer read FProyectoSeleccionado write SetProyectoSeleccionado;
  end;

var
  frmWNuevoProyecto: TfrmWNuevoProyecto;

implementation

{$R *.dfm}

{ TfrmWNuevoProyecto }

procedure TfrmWNuevoProyecto.lv1Click(Sender: TObject);
begin
  ProyectoSeleccionado := lv1.Selected.Index ;
end;

procedure TfrmWNuevoProyecto.lv1DblClick(Sender: TObject);
begin
  btn2.Click ;
end;

procedure TfrmWNuevoProyecto.SetProyectoSeleccionado(const Value: Integer);
begin
  FProyectoSeleccionado := Value;
end;

end.
